home *** CD-ROM | disk | FTP | other *** search
/ AppleScript - The Beta Release / AppleScript - The Beta Release.iso / Development Tools / Interfaces / PInterfaces / AEPackObject.p < prev    next >
Text File  |  1992-03-21  |  2KB  |  82 lines
  1. {———————————————————————————————————————————————————————————————————————————————————}
  2. {                                            
  3.     ©Apple Computer, Inc.  11/2/90             
  4.           All Rights Reserved.                
  5.  
  6. {[r+,l+,k+,v+,t=4,0=150] Pasmat options}
  7.  
  8.  
  9. {$IFC UNDEFINED UsingIncludes}
  10. {$SETC UsingIncludes := 0}
  11. {$ENDC}
  12.  
  13. {$IFC NOT UsingIncludes}
  14.     UNIT AEPackObject;
  15.     INTERFACE
  16. {$ENDC}
  17.  
  18. {$IFC UNDEFINED UsingAEObjectPacking}
  19. {$SETC UsingAEObjectPacking := 1}
  20.  
  21. {$I+}
  22. {$SETC AEObjectIncludes := UsingIncludes}
  23. {$SETC UsingIncludes := 1}
  24. {$IFC UNDEFINED UsingTypes}
  25. {$I $$Shell(PInterfaces)Types.p}
  26. {$ENDC}
  27. {$IFC UNDEFINED UsingMemory}
  28. {$I $$Shell(PInterfaces)Memory.p}
  29. {$ENDC}
  30. {$IFC UNDEFINED UsingOSUtils}
  31. {$I $$Shell(PInterfaces)OSUtils.p}
  32. {$ENDC}
  33. {$IFC UNDEFINED UsingEvents}
  34. {$I $$Shell(PInterfaces)Events.p}
  35. {$ENDC}
  36. {$IFC UNDEFINED UsingEPPC}
  37. {$I $$Shell(PInterfaces)EPPC.p}
  38. {$ENDC}
  39. {$IFC UNDEFINED UsingAppleEvents}
  40. {$I $$Shell(PInterfaces)AppleEvents.p}
  41. {$ENDC}
  42.  
  43. {$SETC UsingIncludes := AEObjectIncludes}
  44.  
  45.  
  46. { These are the object packing routines.  }
  47.  
  48. FUNCTION CreateOffsetDescriptor(    theOffset:            LONGINT;
  49.                                 VAR theDescriptor:        AEDesc) : OSErr;
  50.  
  51. FUNCTION CreateCompDescriptor(    comparisonOperator:     DescType;
  52.                                 VAR operand1:             AEDesc;
  53.                                 VAR operand2:             AEDesc;
  54.                                 disposeInputs:            BOOLEAN;
  55.                                 VAR theDescriptor:         AEDesc) : OSErr;
  56.                                 
  57. FUNCTION CreateLogicalDescriptor(
  58.                             VAR theLogicalTerms:         AEDescList;         {a list of comb and logi terms}
  59.                             theLogicOperator:            DescType;             {the operator, e.g. AND}    
  60.                             disposeInputs:                BOOLEAN;
  61.                             VAR theDescriptor:             AEDesc ) : OSErr; 
  62.  
  63.  
  64. FUNCTION CreateObjSpecifier(    desiredClass:             DescType;
  65.                                 VAR theContainer:         AEDesc; 
  66.                                 keyForm:                 DescType;
  67.                                 VAR keyData:            AEDesc; 
  68.                                 disposeInputs:            BOOLEAN;
  69.                                 VAR objSpecifier:         AEDesc) : OSErr;
  70.                             
  71. FUNCTION CreateRangeDescriptor(    VAR rangeStart:         AEDesc;    
  72.                                 VAR rangeStop:            AEDesc;
  73.                                 disposeInputs:            BOOLEAN;
  74.                                 VAR theDescriptor:         AEDesc): OSErr;
  75.  
  76.  
  77. {$ENDC}    { UsingAEObjects }
  78.  
  79. {$IFC NOT UsingIncludes}
  80. END.
  81. {$ENDC}
  82.